### --- Test setup ---
if(FALSE) {
	## Not really needed, but can be handy when writing tests
	library("RUnit")
	library("unsupervisedMicroarray")
}

test.Wilcox <-function(){
	v1 <- rnorm(100)
	v2 <- rnorm(100)
	wt <- new("WilcoxonHtester")
	pv <-htest(wt,v1,v2)
	checkTrue(is.numeric(pv))
}
N<-10
testData <- lapply(1:N,FUN=function(n,cnum){
			mat<-matrix(rnorm(cnum),ncol=cnum);rownames(mat)<-"666";mat},N)
test.Pairs <-function(){
	wt <- new("WilcoxonHtester")
	pTester <- new("PHTestBFrameworkFinalResult",hTester=wt)
	outList <-computeBFResult(pTester,testData)
	pv<- outList$PVal
	bo <-outList$Bool
	print(bo)
	print(pv)
	
	checkTrue(is.numeric(pv))
	checkTrue(is.matrix(pv))
	checkTrue(is.matrix(bo))
	checkTrue(is.logical(bo))
	
	
	
	sTester <- new("SumBFrameworkFinalResult")
	outMa <-computeBFResult(sTester,testData)
	print("SUM MAtrix")
	print(outMa)
	
	
}